SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO


CREATE PROC [dbo].[SP_TXMVTO_CNTB_D02]      
/*-------------------------------------------------------------------*/      
/*----- Empresa           : OFISIS S.A.                          ----*/      
/*----- Cliente           : OFISIS S.A.                          ----*/      
/*----- Sistema           : Contabilidad                         ----*/      
/*----- Modulo            : Empresa                              ----*/      
/*----- Programa          : Diferencia de cambio                 ----*/      
/*----- Nombre            : SP_TXMVTO_CNTB_D02                   ----*/      
/*----- Script            : TXMVTO_CNTB                          ----*/      
/*----- Desarrollado por  : Alberto Munoz Sosa                   ----*/      
/*----- Fecha             : 08/08/1997                           ----*/      
/*----- Base de Datos     : MS SQL Server                        ----*/      
/*----- Version BD        : 6.5                                  ----*/      
/*-------------------------------------------------------------------*/      
/*-------------------------------------------------------------------*/      
/*----- Comentarios       : Elimina Asientos de Diferencia       ----*/      
/*-----                     de Cambios, reestablece flag de      ----*/      
/*-----                     cancelados e inicializa contador     ----*/      
/*-----                     de asientos de dif.de cambio         ----*/      
/*-------------------------------------------------------------------*/      
/*----- modificado 1      : Percy Garc?a                         ----*/    
/*----- fecha modif.      : 07/05/2004                           ----*/    
/*----- detalle modif     : se modifico delete para que sea por  ----*/      
/*----- todas las unidades debido al caso presentado en Milpo    ----*/                        
/*----- lo mismo en el update                                    ----*/    
/*-------------------------------------------------------------------*/      
/*-------------------------------------------------------------------*/      
/*----- modificado 2      : Percy Garc?a                         ----*/    
/*----- fecha modif.      : 18/10/2004                           ----*/    
/*----- detalle modif     : SE MODIFICO DELETE PARA QUE SEA POR STATUS DE DIF CAMBIO----*/      
/*-------------------------------------------------------------------*/    
/*-------------------------------------------------------------------*/    
/*----- Drop proc SP_TXMVTO_CNTB_D02                             ----*/      
/*----- Grant all on SP_TXMVTO_CNTB_D02 to PUBLIC                ----*/      
/*----- SP_TXMVTO_CNTB_D02                                       ----*/      
/*-------------------------------------------------------------------*/      
@ISCO_EMPR  TD_VC_002,      
@INNU_CNTB_EMPR  TD_IN_001_CONT,      
@ISCO_UNID_CNTB         TD_VC_003,      
@ISCO_OPRC_CNTB         TD_VC_003,      
@ISCO_OPRC_PEND         TD_VC_003,      
@INNU_ANNO  TD_IN_004_ANNO,      
@INNU_MESE  TD_IN_002_MESE      
      
As    
Declare 
@VSCO_OPRC_CNTB         TD_VC_003,      
@VSCO_OPRC_PEND         TD_VC_003      
  
Begin Transaction SP_TXMVTO_CNTB_D02      
/*---- Elimina Asientos de Diferencia de Cambio ----*/      
Delete From   TXMVTO_CNTB      
Where  CO_EMPR =  @ISCO_EMPR And      
       NU_CNTB_EMPR = @INNU_CNTB_EMPR And      
--       CO_UNID_CNTB = @ISCO_UNID_CNTB And      
--       CO_OPRC_CNTB = @ISCO_OPRC_CNTB And      
       NU_ANNO  = @INNU_ANNO And      
       NU_MESE  = @INNU_MESE And      
       ST_DIFE_CAMB = 'S'   
 If @@ERROR != 0      
  Begin       
   Rollback Transaction      
   Return      
  End      
/*----  Quita Flag de Actualizado de Documentos Cancelados ----*/      
/*Update TXMVTO_CNTB        
 Set  SI_MVTO_DOCU = 'N',      
      ST_OTRS = Null      
 Where CO_EMPR = @ISCO_EMPR and      
       NU_CNTB_EMPR = @INNU_CNTB_EMPR and      
       NU_ANNO  = @INNU_ANNO and      
       NU_MESE  <= @INNU_MESE and      
       ST_OTRS = Convert(Char(4),@INNU_ANNO) + Convert(Char(2),@INNU_MESE)      
 If @@ERROR != 0           
  Begin       
   Rollback Transaction      
   Return      
  End*/      
/*---   Inicializa contador de asientos de diferencia de cambio  ---*/       

 Select @VSCO_OPRC_CNTB = IsNull(@ISCO_OPRC_CNTB, '')
 Select @VSCO_OPRC_PEND = IsNull(@ISCO_OPRC_PEND, '')

 Update TCFECH_PROC      
 Set  NU_ULTI_ASTO = 0      
 Where CO_EMPR = @ISCO_EMPR 
And NU_CNTB_EMPR = @INNU_CNTB_EMPR 
--        CO_UNID_CNTB = @ISCO_UNID_CNTB and      
And CO_OPRC_CNTB In (@VSCO_OPRC_CNTB, @VSCO_OPRC_PEND) 
And NU_ANNO = @INNU_ANNO 
And NU_MESE = @INNU_MESE       
       
 If @@ERROR != 0        
  Begin       
    Rollback Transaction      
    Return      
  End      
 Commit Transaction      
Return      
/*--------------------------------- Fin ----------------------------------------*/





GO
